/ MacWorld 2000 January / Macworld (2000-01).dmg / Serious Software / OmikronBasic 6.50e (demo).sea / OmikronBasic 6.50e (demo) / DEMO / Debugger (Demo) / Eratosthenes.BAS

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 86 00 00 07 ea | 00 00 00 40 00 00 00 b8 |........|...@....|
|00000010| 00 00 00 00 00 00 00 01 | 00 00 00 34 00 02 00 00 |........|...4....|
|00000020| 00 72 00 03 00 00 00 a2 | 00 04 00 00 00 d4 00 05 |.r......|........|
|00000030| 00 00 01 0e 00 06 00 00 | 01 44 00 07 00 00 01 74 |........|.D.....t|
|00000040| 00 08 00 00 01 a4 00 09 | 00 00 01 d2 00 0a 00 00 |........|........|
|00000050| 02 06 00 0b 00 00 02 3c | 00 0c 00 00 02 60 00 0d |.......<|.....`..|
|00000060| 00 00 02 7e 00 0e 00 00 | 02 7e 00 0f 00 00 02 92 |...~....|.~......|
|00000070| 00 10 00 00 02 a4 00 11 | 00 00 02 b4 00 12 00 00 |........|........|
|00000080| 02 c4 00 13 00 00 02 c4 | 00 14 00 00 02 d4 00 15 |........|........|
|00000090| 00 00 02 e4 00 16 00 00 | 03 10 00 17 00 00 03 2a |........|.......*|
|000000a0| 00 18 00 00 03 42 00 19 | 00 00 03 70 00 1a 00 00 |.....B..|...p....|
|000000b0| 03 84 00 1b 00 00 03 9c | 00 1c 00 00 03 ac 00 1d |........|........|
|000000c0| 00 00 03 e2 00 1e 00 00 | 04 06 00 1f 00 00 04 14 |........|........|
|000000d0| 00 20 00 00 04 24 00 21 | 00 00 04 36 00 22 00 00 |. ...$.!|...6."..|
|000000e0| 04 58 00 23 00 00 04 6e | 00 24 00 00 04 82 00 25 |.X.#...n|.$.....%|
|000000f0| 00 00 04 aa 00 26 00 00 | 04 ca 00 27 00 00 04 f0 |.....&..|...'....|
|00000100| 00 28 00 00 05 20 00 29 | 00 00 05 24 00 2a 00 00 |.(... .)|...$.*..|
|00000110| 05 28 00 2b 00 00 05 30 | 00 2c 00 00 05 6a 00 2d |.(.+...0|.,...j.-|
|00000120| 00 00 05 70 00 2e 00 00 | 05 80 00 2f 00 00 05 82 |...p....|.../....|
|00000130| 00 30 00 00 05 82 00 31 | 00 00 05 9c 00 32 00 00 |.0.....1|.....2..|
|00000140| 05 ae 00 33 00 00 05 ae | 00 34 00 00 05 e6 00 35 |...3....|.4.....5|
|00000150| 00 00 06 24 00 36 00 00 | 06 3c 00 37 00 00 06 48 |...$.6..|.<.7...H|
|00000160| 00 38 00 00 06 4e 00 39 | 00 00 06 60 00 3a 00 00 |.8...N.9|...`.:..|
|00000170| 06 72 00 3b 00 00 06 84 | 00 3c 00 00 06 94 00 3d |.r.;....|.<.....=|
|00000180| 00 00 06 9c 00 3e 00 00 | 06 ae 00 3f 00 00 06 b6 |.....>..|...?....|
|00000190| ff ff 00 00 06 ba 01 31 | 54 68 69 73 20 70 72 6f |.......1|This pro|
|000001a0| 67 72 61 6d 20 63 61 6c | 63 75 6c 61 74 65 73 20 |gram cal|culates |
|000001b0| 61 6c 6c 20 70 72 69 6d | 65 20 6e 75 6d 62 65 72 |all prim|e number|
|000001c0| 73 20 73 6d 61 6c 6c 65 | 72 00 01 3a 74 68 61 6e |s smalle|r..:than|
|000001d0| 20 31 32 31 2e 20 54 68 | 65 20 61 70 70 6c 69 65 | 121. Th|e applie|
|000001e0| 64 20 6d 65 74 68 6f 64 | 20 69 73 20 61 6c 73 6f |d method| is also|
|000001f0| 20 6b 6e 6f 77 6e 20 61 | 73 20 74 68 65 20 73 69 | known a|s the si|
|00000200| 65 76 65 20 6f 66 00 00 | 01 2c 45 72 61 74 6f 73 |eve of..|.,Eratos|
|00000210| 74 68 65 6e 65 73 2e 20 | 41 6c 6c 20 70 72 69 6d |thenes. |All prim|
|00000220| 65 20 6e 75 6d 62 65 72 | 73 20 73 6d 61 6c 6c 65 |e number|s smalle|
|00000230| 72 20 74 68 61 6e 00 00 | 01 2f 31 31 3d 53 51 52 |r than..|./11=SQR|
|00000240| 28 31 32 31 29 20 68 61 | 76 65 20 74 6f 20 62 65 |(121) ha|ve to be|
|00000250| 20 6b 6e 6f 77 6e 20 61 | 6c 72 65 61 64 79 2e 20 | known a|lready. |
|00000260| 54 68 65 73 65 20 61 72 | 65 00 01 36 74 68 65 20 |These ar|e..6the |
|00000270| 6e 75 6d 62 65 72 73 20 | 32 2c 33 2c 35 2c 37 2c |numbers |2,3,5,7,|
|00000280| 20 77 68 69 63 68 20 61 | 72 65 20 73 74 6f 72 65 | which a|re store|
|00000290| 64 20 69 6e 20 74 68 65 | 20 44 41 54 41 20 6c 69 |d in the| DATA li|
|000002a0| 6e 65 00 00 01 33 61 6e | 64 20 61 72 65 20 72 65 |ne...3an|d are re|
|000002b0| 61 64 20 74 6f 20 74 68 | 65 20 66 69 65 6c 64 20 |ad to th|e field |
|000002c0| 50 72 69 6d 65 73 28 29 | 61 74 20 74 68 65 20 62 |Primes()|at the b|
|000002d0| 65 67 69 6e 6e 69 6e 67 | 2e 00 01 2d 46 6f 72 20 |eginning|...-For |
|000002e0| 74 68 65 20 6e 75 6d 62 | 65 72 73 20 31 31 20 74 |the numb|ers 11 t|
|000002f0| 6f 20 31 32 30 20 69 74 | 20 73 75 66 66 69 63 65 |o 120 it| suffice|
|00000300| 73 20 69 66 20 74 68 65 | 79 00 01 2c 61 72 65 20 |s if the|y..,are |
|00000310| 63 68 65 63 6b 65 64 20 | 66 6f 72 20 64 69 76 69 |checked |for divi|
|00000320| 73 69 62 69 6c 69 74 79 | 20 62 79 20 6f 6e 65 20 |sibility| by one |
|00000330| 6f 66 20 74 68 65 73 65 | 00 00 01 2a 34 20 70 72 |of these|...*4 pr|
|00000340| 69 6d 65 20 6e 75 6d 62 | 65 72 73 2e 20 49 66 20 |ime numb|ers. If |
|00000350| 61 20 6e 75 6d 62 65 72 | 20 69 73 20 64 69 76 69 |a number| is divi|
|00000360| 73 69 62 6c 65 2c 00 00 | 01 31 61 20 66 6c 61 67 |sible,..|.1a flag|
|00000370| 20 69 73 20 73 65 74 20 | 69 6e 74 6f 20 74 68 65 | is set |into the|
|00000380| 20 66 69 65 6c 64 20 4e | 6f 5f 50 72 69 6d 65 25 | field N|o_Prime%|
|00000390| 46 28 29 20 61 6e 64 20 | 74 68 65 00 01 32 6e 75 |F() and |the..2nu|
|000003a0| 6d 62 65 72 20 6f 6e 20 | 74 68 65 20 73 63 72 65 |mber on |the scre|
|000003b0| 65 6e 20 69 73 20 73 68 | 6f 77 6e 20 69 6e 76 65 |en is sh|own inve|
|000003c0| 72 74 65 64 2e 20 41 74 | 20 74 68 65 20 65 6e 64 |rted. At| the end|
|000003d0| 00 00 01 20 61 6c 6c 20 | 6e 75 6d 62 65 72 73 20 |... all |numbers |
|000003e0| 6e 6f 74 20 69 6e 76 65 | 72 74 65 64 20 61 72 65 |not inve|rted are|
|000003f0| 20 74 68 65 00 00 01 1b | 73 65 61 72 63 68 65 64 | the....|searched|
|00000400| 20 66 6f 72 20 70 72 69 | 6d 65 20 6e 75 6d 62 65 | for pri|me numbe|
|00000410| 72 73 2e 00 2f e5 0f 50 | 52 45 5f 53 49 5a 45 20 |rs../..P|RE_SIZE |
|00000420| 35 30 30 30 30 30 00 00 | 2f e5 0e 42 41 53 5f 4d |500000..|/..BAS_M|
|00000430| 45 4d 20 35 30 30 30 30 | 30 00 2f e5 0b 4f 50 57 |EM 50000|0./..OPW|
|00000440| 20 33 34 30 2a 32 34 30 | 00 00 2f e5 0c 77 61 72 | 340*240|../..war|
|00000450| 6e 69 6e 67 73 20 6f 66 | 66 00 11 f2 00 00 22 e0 |nings of|f.....".|
|00000460| 78 00 11 f2 00 04 22 e0 | 03 00 26 f2 00 04 fc 00 |x.....".|..&.....|
|00000470| 08 15 f2 00 00 ff 00 0c | 00 00 47 f7 00 10 00 01 |........|..G.....|
|00000480| 23 52 65 61 64 20 61 6c | 6c 20 70 72 69 6d 65 20 |#Read al|l prime |
|00000490| 6e 75 6d 62 65 72 73 20 | 3c 31 31 3d 53 51 52 28 |numbers |<11=SQR(|
|000004a0| 31 32 31 29 00 00 08 00 | 15 f2 00 14 22 e0 00 1b |121)....|...."...|
|000004b0| e0 02 00 44 f2 00 14 fc | 00 08 00 09 f2 00 14 00 |...D....|........|
|000004c0| 19 e5 04 23 23 23 23 00 | 11 f2 00 18 22 e0 0a 00 |...####.|...."...|
|000004d0| 11 f2 00 1c 22 e0 0c 00 | 01 2a 53 74 61 72 74 69 |...."...|.*Starti|
|000004e0| 6e 67 20 6e 75 6d 62 65 | 72 2c 20 65 6e 64 20 6e |ng numbe|r, end n|
|000004f0| 75 6d 62 65 72 2c 20 72 | 6f 77 73 2c 20 63 6f 6c |umber, r|ows, col|
|00000500| 75 6d 6e 73 00 00 0e 00 | 20 e0 02 15 f2 00 00 3e |umns....| ......>|
|00000510| f2 00 18 3e f2 00 1c 49 | 00 00 13 e0 1b 80 e5 01 |...>...I|........|
|00000520| 70 c9 16 00 01 0a 52 65 | 76 65 72 73 20 6f 6e 2e |p.....Re|vers on.|
|00000530| 00 00 11 f2 00 24 22 e0 | 01 00 11 f2 00 28 22 e0 |.....$".|.....(".|
|00000540| 00 00 01 33 54 65 73 74 | 20 69 66 20 74 68 65 20 |...3Test| if the |
|00000550| 6e 75 6d 62 65 72 73 20 | 32 20 74 6f 20 50 72 69 |numbers |2 to Pri|
|00000560| 6d 5f 44 69 6d 20 63 61 | 6e 20 62 65 20 64 69 76 |m_Dim ca|n be div|
|00000570| 69 64 65 64 20 62 79 00 | 01 20 74 68 65 20 70 72 |ided by.|. the pr|
|00000580| 69 6d 65 20 6e 75 6d 62 | 65 72 73 20 3c 20 31 31 |ime numb|ers < 11|
|00000590| 3d 53 51 52 28 31 32 31 | 29 2e 00 00 08 01 64 f2 |=SQR(121|).....d.|
|000005a0| 00 2c 22 e0 02 1b f2 00 | 00 00 10 02 08 01 14 f2 |.,".....|........|
|000005b0| 00 14 22 e0 00 1b e0 03 | 00 00 10 02 0c f2 00 2c |..".....|.......,|
|000005c0| f2 00 14 fc 00 08 ce 07 | 00 f5 00 00 10 03 01 1d |........|........|
|000005d0| 54 65 73 74 20 6f 6e 6c | 79 20 6e 75 6d 62 65 72 |Test onl|y number|
|000005e0| 73 20 6e 6f 74 20 61 6c | 72 65 61 64 79 00 10 03 |s not al|ready...|
|000005f0| 01 10 6b 6e 6f 77 6e 20 | 61 73 20 70 72 69 6d 65 |..known |as prime|
|00000600| 73 2e 00 00 10 03 0c f2 | 00 2c f2 00 14 fc 00 08 |s.......|.,......|
|00000610| c8 e0 00 cb 07 00 a4 00 | 10 04 01 22 50 72 69 6e |........|..."Prin|
|00000620| 74 20 6e 75 6d 62 65 72 | 20 69 6e 20 72 65 76 65 |t number| in reve|
|00000630| 72 73 65 2c 20 6e 6f 20 | 70 72 69 6d 65 2e 00 00 |rse, no |prime...|
|00000640| 10 04 11 f2 00 2c ff 00 | 0c 22 e1 ff ff 00 13 f2 |.....,..|."......|
|00000650| 00 28 f2 00 24 14 16 f2 | 00 2c 85 e0 02 81 00 00 |.(..$...|.,......|
|00000660| 10 04 46 00 01 1e 53 69 | 6e 63 65 20 49 20 69 73 |..F...Si|nce I is|
|00000670| 20 6e 6f 20 70 72 69 6d | 65 2c 20 74 68 65 20 6f | no prim|e, the o|
|00000680| 74 68 65 72 00 00 10 04 | 01 2b 64 69 76 69 64 65 |ther....|.+divide|
|00000690| 72 73 20 64 6f 20 6e 6f | 74 20 68 61 76 65 20 74 |rs do no|t have t|
|000006a0| 6f 20 62 65 20 74 65 73 | 74 65 64 20 61 6e 79 20 |o be tes|ted any |
|000006b0| 6d 6f 72 65 2e 00 10 03 | 03 00 10 02 03 00 10 02 |more....|........|
|000006c0| 09 f2 00 14 00 00 10 02 | 11 f2 00 24 94 60 e0 04 |........|...$.`..|
|000006d0| 00 06 f2 00 2c dc d8 f2 | 00 18 c8 e0 00 cb 07 00 |....,...|........|
|000006e0| 21 11 f2 00 28 94 60 e0 | 01 00 11 f2 00 24 22 e0 |!...(.`.|.....$".|
|000006f0| 01 00 01 0a 4e 65 78 74 | 20 6c 69 6e 65 2e 00 00 |....Next| line...|
|00000700| 09 f2 00 2c 00 00 0a 00 | 0b 2f e5 05 45 56 45 4e |...,....|./..EVEN|
|00000710| 54 04 e0 00 00 00 6f 00 | 0e 00 10 00 01 13 54 68 |T.....o.|......Th|
|00000720| 65 20 66 69 72 73 74 20 | 34 20 70 72 69 6d 65 73 |e first |4 primes|
|00000730| 2e 00 0d 0f 00 00 00 e0 | 02 15 e0 03 15 e0 05 15 |........|........|
|00000740| e0 07 00 00 01 34 54 68 | 69 73 20 70 72 6f 63 65 |.....4Th|is proce|
|00000750| 64 75 72 65 20 77 72 69 | 74 65 73 20 74 68 65 20 |dure wri|tes the |
|00000760| 6e 75 6d 62 65 72 73 20 | 66 72 6f 6d 20 5a 30 20 |numbers |from Z0 |
|00000770| 74 6f 20 5a 31 20 74 6f | 20 61 00 00 01 3b 72 65 |to Z1 to| a...;re|
|00000780| 63 74 61 6e 67 75 6c 61 | 72 20 73 63 68 65 6d 65 |ctangula|r scheme|
|00000790| 20 77 69 74 68 20 43 20 | 63 6f 6c 75 6d 6e 73 20 | with C |columns |
|000007a0| 61 6e 64 20 4c 20 72 6f | 77 73 20 6f 6e 20 74 68 |and L ro|ws on th|
|000007b0| 65 20 73 63 72 65 65 6e | 2e 00 0f 36 0e 00 20 da |e screen|...6.. .|
|000007c0| f2 00 30 15 f2 00 34 15 | f2 00 38 15 f2 00 3c d9 |..0...4.|..8...<.|
|000007d0| 00 00 10 02 37 f2 00 2c | 15 f2 00 14 00 00 10 02 |....7..,|........|
|000007e0| 94 30 00 00 10 02 08 00 | 60 f2 00 14 22 e0 00 1b |.0......|`..."...|
|000007f0| f2 00 3c dc 00 00 10 03 | 08 00 34 f2 00 2c 22 e0 |..<.....|..4..,".|
|00000800| 00 1b f2 00 38 dc 00 00 | 10 04 13 f2 00 30 16 00 |....8...|.....0..|
|00000810| 11 f2 00 30 94 60 e0 01 | 00 00 10 04 06 f2 00 30 |...0.`..|.......0|
|00000820| f2 00 34 cd 07 00 05 46 | 00 00 10 03 09 f2 00 2c |..4....F|.......,|
|00000830| 00 00 10 03 13 00 06 f2 | 00 30 f2 00 34 cd 07 00 |........|.0..4...|
|00000840| 05 46 00 00 10 02 09 f2 | 00 14 00 00 94 50 00 00 |.F......|.....P..|
|00000850| 6f 00 01 e0 00 00 02 02 | 02 02 02 02 02 02 02 02 |o.......|........|
|00000860| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000870| 00 00 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 01 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|000008d0| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|000008e0| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|000008f0| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000900| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000910| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000920| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000930| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000940| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000950| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000960| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000970| 02 02 02 02 02 02 02 02 | 02 02 02 02 02 02 02 02 |........|........|
|00000980| 02 00 00 0a 02 00 00 16 | 02 00 00 22 05 00 00 30 |........|..."...0|
|00000990| 07 00 00 44 02 00 00 4c | 02 00 00 5a 02 00 00 66 |...D...L|...Z...f|
|000009a0| 06 00 00 7c 02 00 00 84 | 02 00 00 8c 02 00 00 94 |...|....|........|
|000009b0| 02 00 00 9c 02 00 00 a4 | 02 00 00 ac 02 00 00 b4 |........|........|
|000009c0| 00 50 52 49 4d 5f 44 49 | 4d 00 00 00 00 00 00 00 |.PRIM_DI|M.......|
|000009d0| 50 5f 44 49 4d 00 00 00 | 00 00 00 50 52 49 4d 45 |P_DIM...|...PRIME|
|000009e0| 53 01 00 00 00 00 00 4e | 4f 5f 50 52 49 4d 45 01 |S......N|O_PRIME.|
|000009f0| 00 00 00 00 00 00 50 52 | 49 4d 45 5f 4e 55 4d 42 |......PR|IME_NUMB|
|00000a00| 45 52 53 00 00 00 00 00 | 00 00 4a 00 00 00 00 00 |ERS.....|..J.....|
|00000a10| 00 00 43 4f 4c 55 4d 4e | 53 00 00 00 00 00 00 00 |..COLUMN|S.......|
|00000a20| 4c 49 4e 45 53 00 00 00 | 00 00 00 00 44 49 53 50 |LINES...|....DISP|
|00000a30| 4c 41 59 5f 4e 55 4d 42 | 45 52 53 04 00 00 00 00 |LAY_NUMB|ERS.....|
|00000a40| 00 00 58 00 00 00 00 00 | 00 00 59 00 00 00 00 00 |..X.....|..Y.....|
|00000a50| 00 00 49 00 00 00 00 00 | 00 5a 30 00 00 00 00 00 |..I.....|.Z0.....|
|00000a60| 00 5a 31 00 00 00 00 00 | 00 00 43 00 00 00 00 00 |.Z1.....|..C.....|
|00000a70| 00 00 4c 00 00 00 00 00 |                         |..L.....|        |
+--------+-------------------------+-------------------------+--------+--------+